home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / firstdial3 print (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  585b  |  19 lines
  1. 0 poke53280,0:poke53281,0:printchr$(14);"[147]  [196]umper by [210]ichard and [196]avid [194]radley"
  2. 1 fori=1to38:print"-";:nexti:print:fori=1to5000:nexti
  3. 2 print"[196]o [217]ou [200]ave [193] 1525 or [205][208][211]-801?":getbs$:ifbs$=""goto2
  4. 3 ifbs$="y"thenopen4,4,7:q=1:print"[217]es!"
  5. 4 ifq<>1thenprint"[206]o!"
  6. 5 print"[201]s your printer ready?":getbs$
  7. 6 ifbs$=""then5
  8. 7 ifbs$="y"thenprint"[217]es!":goto9
  9. 8 print"[206]o!":end
  10. 9 fori=1to2500:next:print"[147]"
  11. 10 open1,8,3,"firstdial3 doc,s,r"
  12. 15 ifq<>1thenopen4,4
  13. 20 get#1,a$
  14. 21 ifa$=chr$(34)thena$="":goto35
  15. 25 ifst<>0thenclose1:end
  16. 30 printa$;
  17. 35 print#4,a$;
  18. 40 goto20
  19.